RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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12-88-1382 99: 6:2 RUNOF! . SRCJFNDFLG.BLI; a) 
MODULE fndflg ( DENT = "V04-000' 
P ISS32L, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
9 ' NONEXTERNAL = CONGTR RELATIVES] 
= 


oOo 


Ssss 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


SOF TWARE +8 FURNISHED UNDER A LICENSE AND MAY BE USED AND sorite 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
USION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ES THEREOF 4 NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
fauurckeiee TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
+ SORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 


ooo 
oO 


mer <wm 
zz 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
i ABSTRACT: Identifies a flag occurring in text. 

i ENVIRONMENT: Transportable 

{ AUTHOR: R.W. Friday CREATION DATE: May, 1978 
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BEGIN 
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voeebo0 Revision History 1B-Sen-1984 99:62:38 YRUNORFeSRe Fabre: OL. ea (28 


3 $ rt ! RSBTTL "Revision History’ 

: rk 4g 1 | MODIFIED By: 

; & os se 

s 65 44 1! 002 REROOOO2 Ron Randall 07-Mar-1983 

3 ‘8 45 1! Global edit of all modules. Update module names, idents, 
; rH O46 | copyright dates. Changed require files to BLISS library. 
: 49 0048 1 i= 

; WR 0049 1 
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Sep-1984 9: AX-11 Bliss-32 V4.0-74 Page 
Module Level Declarations 1b-se met 99: 88 :38 RUNOFF .SRCJFNDFLG.BLI; . (33 


EXTERNAL REFERENCES: 


XTERNAL 
Flot : FLAG TABLE CFLAG_COUNT), 
FLTSO : VECTOR; 


BIND 
SEARCH_ORDER = FLTSO : VECTOR; 


ZSBITL ‘Module Level Declarations’ 

1 

i 

INCLUDE FILES: 

LIBRARY 'NXPOPT:XPORT'; ' XPORT Library 

REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
<IF DSRPLUS Z1HEN 

Sew REQ:DPLLIB'; ! DSRPLUS BLISS Library 
wn *REQ:DSRLIB'; ! DSR BLISS Library 

' 

i 

i 

E 
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i TABLE OF CONTENTS: 


—— 


Module Level Declarations 
GLOBAL ROUTINE FNDFLG (KHAR) = 


'+ 
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7-898: 3B 90: 8833 RUNOFF .SRCJFNDFLG.BLI; ote (4) v04 
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$ 
FUNCTIONAL DESCRIPTION: 


FNDFLG Looks at all those enabled a 4 that can 
occur in running text (as opposed to Fpee hat can appear, 
say only in column 1, etc), and sees if KHAR matches one 
of them. If it does, FNDFLG returns the number of the flag 
table entry involved; if not, a number outside the range of the 
flag table is returned. 


_ SEARCH_ORDER is a List of those flags that can occur in 
running text, and specifies the order in which the flags are to 
oP soonest sees It is independent of the actual layout of the 

ag table. 


FORMAL PARAMETERS: 


ome 


—OO0oO 


OOO CODD CUCU CU CD CD CD OD ~ 
“OOOO WN OW” S 


KHAR is the character that is to be associated with a 
specific flag. 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


So 
oO 


Possible completion codes are either an entry from 
SEARCH_ORDER, or FLAG_COUNT + 1. 


SIDE EFFECTS: None 


BEGIN 
INCR_ I FROM 0 TO .SEARCH_ORDER [-1] - 1 DO 
BEGIN 
IF .FLGT C.SEARCH_ORDER C.1], FLAG trp et 
— (.KHAR EQL”.FLGT C.SEARCH_ORDER C.1J], FLAG_CHARACTER]) 
RETURN .SEARCH_ORDER C(.1); 
END; 
RETURN FLAG_COUNT + 1; 
END; 
| 
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'End of FNDFLG 


TITLE FNDFLG 

-IDENT \V04-000\ 
~-EXTRN FLGT, FLTSO 
-PSECT SCODES,NOWRT,2 


EOFS 


; Routine Size: 46 bytes, Routine Base: S$CODE$ + 0000 


128 0255 
; Ig 0256 1 END 
130 0257 0 ELUDOM 


PSECT SUMMARY 


46 68:5 + 0 data bytes 
; Lines/CPU Min: 


0:1 6: 
; Lexemes/CPU-Min: 13539 
; Memory Used: 26 pages 
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0000 
0 mi i 1$: 
2 20000 o0g0cE ree : 1) 
DD 24 000000006 F ib Mh 2$ 
04 0002D 3 


AX=11 Blisg-32 V4.0-74 
RUNOFF ..SRCJFNDFLG.BLI; 


«ENTRY FNDFLG, Save nothing 
MNEGL #1, I 

BRB 2s 

MOVL SEARCH. QRDERCII, RO 
BLBC FLGT 

CMPL KHAR, Mo ers F2CR02 
BEQL R 

AOBLSS SEARCH_ORDER=-4, I, 1$ 
SOV #19, RO 


'End of module 


; Name Bytes Attributes 

: SCODES 46 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: Library Statistics 

eae paper ea ei eae Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

; _$255$DUA28: fad ata -L32;1 590 0 252 80:00 .¢ 

; 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 4 86 00:00. 

: COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:FNDFLG/OBJ=OBJ$:FNDFLG MSRC$:FNDFLG/UPDATE=(ENHS$: FNDFLG) 


FNDF 
Voe-b60 Module Level Declarations 
; Compilation Complete 
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